home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b6.d64 / bit'ml.l < prev    next >
Text File  |  2007-02-28  |  231b  |  13 lines
  1. 9000 FUNC BIT'ML(N,M,O) CLOSED
  2. 9010 POKE 2045,169
  3. 9020 POKE 2046,N
  4. 9030 POKE 2047,O
  5. 9040 POKE 2048,M
  6. 9050 POKE 2049,141
  7. 9060 POKE 2050,232
  8. 9070 POKE 2051,7
  9. 9080 POKE 2052,96
  10. 9090 SYS 2045
  11. 9100 RETURN PEEK(2024)
  12. 9110 ENDFUNC BIT'ML
  13.